home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / mac / Chapter Tutorials / ch06.Media / ShapesPatterns / Wlpaper / wall.dcr / 00039.ls < prev    next >
Encoding:
Text File  |  1996-11-26  |  684 b   |  16 lines
  1. global cToolBoxSprite, cGoAwayBoxSprite, cBGSliderSprite, cFGSliderSprite, cConstrain1, cConstrain2, cDefaultShowLoc, cDefaultHideLoc, gToolBoxOpen
  2.  
  3. on mouseUp
  4.   set newLocDiff to cDefaultHideLoc - the loc of sprite cToolBoxSprite
  5.   set the constraint of sprite cBGSliderSprite to 0
  6.   set the constraint of sprite cFGSliderSprite to 0
  7.   repeat with x = cToolBoxSprite to cGoAwayBoxSprite
  8.     set the loc of sprite x to the loc of sprite x + newLocDiff
  9.   end repeat
  10.   updateStage()
  11.   set the constraint of sprite cBGSliderSprite to cConstrain1
  12.   set the constraint of sprite cFGSliderSprite to cConstrain2
  13.   set cColorLeft to the left of sprite cConstrain1
  14.   set gToolBoxOpen to 0
  15. end
  16.